﻿Public Class frmVisor
#Region "<< -Attributes- >>"
    Private _ImgPath As String = String.Empty
#End Region

#Region "<< -Properties- >>"
    Public WriteOnly Property ImagePath As String
        Set(value As String)
            _ImgPath = value
        End Set
    End Property
#End Region

#Region "<< -Events- >>"
    Private Sub frmVisor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If String.IsNullOrEmpty(_ImgPath) Then Return
        PictureBox1.ImageLocation = _ImgPath
    End Sub

    Private Sub frm_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        If Convert.ToInt32(e.KeyChar) = Keys.Escape Then
            'Cierro el formulario
            Me.Close()
        End If
    End Sub
#End Region
    
End Class